home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
DOS.SWG
/
0035_More REBOOT.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-11-02
|
702b
|
28 lines
{===========================================================================
Date: 10-02-93 (04:20)
From: BILL BUCHANAN
To: JON DERAGON
Subj: BOOT IT!
> Hi everyone! Just wondering if anyone out there knows how to make
> the computer do a RESET using a small Pascal routine? Need it ASAP as
> part of a pretty large project currently in the final stages of
> completion. }
program Reboot;
begin
Inline ($EA/$F0/$FF/$00/$F0)
end.
Procedure ColdBoot; Assembler;
Asm
Xor AX, AX
Mov ES, AX
Mov Word PTR ES:[472h],0000h {This is NOT a WARM boot}
Mov AX, 0F000h
Push AX
Mov AX, 0FFF0h
Push AX
Retf
End;